Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/vidply/vb4.shr/signals.bas

BASIC Source File | 1996-06-04 | 717 b | 19 lines

Attribute VB_Name = "Module2"
Option Explicit
Dim SignalArray As Variant 'holds all the signal event positions
Public nSignalCounter As Integer 'holds current signal counter in array
Public cDriveLetter As String 'holds CD-ROM drive letter
Sub InitSignalArray()

SignalArray = Array(10, 41, 64, 270, 360, 373, 466, 484, 542, 625, 682, 704, 779, 811, 870, 900, 961, 993, 1150, 1204, 1231, 1255, 1337, 1388, 1410, 1485, 1533, 1678, 1783, 1810, 1896, 2022, 2108, 2217, 2237, 2368, 2380, 2474, 2531, 2560)

End Sub
Sub setSignalEvent(Counter As Integer)
    If Counter <= UBound(SignalArray) Then
      Form1.VideoPlay1.SignalAt = SignalArray(Counter)
        Counter = Counter + 1
    End If
End Sub